From 9fdb4856b20e6ef34cba0540583c3544dab2c54a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 19 Aug 2002 06:39:06 +0000 Subject: [PATCH] (sgml-xml-auto-coding-function): Call re-search-forward with NOERROR t.. --- lisp/international/mule.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 6cc905603e4..e937d11030e 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -2003,7 +2003,7 @@ Analogous to `define-translation-table', but updates (defun sgml-xml-auto-coding-function (size) "Determine whether the buffer is XML, and if so, its encoding. This function is intended to be added to `auto-coding-functions'." - (when (re-search-forward "\\`[[:space:]\n]*<\\?xml") + (when (re-search-forward "\\`[[:space:]\n]*<\\?xml" nil t) (let ((end (save-excursion ;; This is a hack. (re-search-forward "\"\\s-*\\?>" size t)))) -- 2.30.2